home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD School House 9
/
CD School House 9.0 - Wayzata Technology (1994).iso
/
pc
/
dos
/
teachaid
/
pccai
/
caiarc2.exe
/
FUNCTION.CAI
< prev
next >
Wrap
Text File
|
1993-12-06
|
1KB
|
45 lines
.rem
.rem -----------------PRESS CTRL-G (Go) TO RUN THIS PROGRAM---------
.rem
@LABEL:THETOP
@OPTIONS ESCAPE:BEGIN
.fun1 =shell:txhelp cai.hlp Go:thetop
.rem NOTE: after a shell, you need to go to a label that will redefine
.rem @OPTIONS and fun commands, otherwise their meaning may be lost.
.fun2 =go:endprog
@LABEL:REALBEGIN
.color 15,1
.cls
.cen (*DEMO of the @OPTIONS and FUN(CTION) commands*)
In this program the command @OPTIONS ESCAPE:BEGIN tells the program to
go to the label called BEGIN when the ESC key is pressed.
The commands @FUN# where # is a number from 1 to 9 tells the program
to go to a label when one of the function keys are pressed.
For this example the following keys are defined:
F1 - means shell to the TXHELP program
F2 - means go to the label called ENDPROG - which ends this program.
Try it out...Press Esc, F1 or F2 now...(yes, even at the pause prompt.)
.locate 24,1
.pause
@STOP system
@label:begin
.cls
.locate 10,1
You came here by pressing the Esc key.
.locate 24,1
.pause
@GOBACK:REALBEGIN
@LABEL:ENDPROG
.cls
.locate 10,1
You came here by pressing the F2 key. Now the program will end.
.locate 24,1
.pause